PPPPPPPPPPPP LLL IIIIIIII1 RRRRRRRRRRRR TITTTTTTTTTTTITT LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTITT § LLL 

PPPPPPPPPPPP LLL LIIIIII11 RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL 

PPP PPP LLL II] RER RRR TTT LLL 

PRP PPP LLL III one RRR TTT LLL 

PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] ROR RRR TTT LLL 
PPP PPP LLL II] RRR RRR TTT LLL 

PPP PPP LLL II] dd TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL III RRRRRRRRRRRR TTT LLL 

PPPPPPPPPPPP LLL II] RRRRRRRRRRRR TTT LLL 

PRP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

BPP LLL II] RRR RRR TTT LLL 

PPP LLL II] RRR RRR TTT LLL 

PRP Lil II] AER RRR TTT LLL 
PPP LLL I]] FOR RRR TTT LLL 
PPP LELLLLELLLLLLLL IIIIIII11 RRR PRR TTT LLLLLLLLLLLLLLL 

PPP LELLLLELLLLLLLL IIIIIII11 RAR RRR TTT LLLLLLLLELLLLLLE | 
PPP LLLLLLLLLLLLLLL IIIIII111 RRR RRR TTT LELLLLELLLLLLLL 
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PPPPPPPP LL III] 000000 PPPPPPPP EEEEEEEEEE NN NN 

PPPPPPPP LL 1111 000000 PPPPPPPP EEEEEEEEEE NN NN 

PP PP LL I] 00 00 PP Pr EE NN NN 

PP PP LL I] 00 00 PP PP EE N NN 

PP PP LL I] 00 00 PP PP FE NNNN NN 

PP PP LL I] 00 00 PP PP EE NNN NN 

PPPPPPPP LL I] 00 00 PPPPPPPP EEEEEEEE NN NN NN 

PPPPPPPP LL I] 00 00 PPPPPPPP EEEEEEEE NN NN_ NN 

PP LL I] 00 00 PP EE NN NNN 

PP LL I] 00 00 PP EE NN NNNN 

PP LL I] 00 00 PP EE NN NN eos 
PP LL I] 00 00 PP EE NN NN eee 
PP LLLLLLLLLL III] 000000 PP EEEEEEEEEE NN NN cece 
PP LLLLLLLLLL HI! 000000 PP EEEEEEEEEE NN NN cove 
LL IIIII1 SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 
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ac | 
. SRC IJPLIOPEN.MAR; 1 (1) | 


-title pt {Segen - pli runtime open file 
-ident /1-007/ ; Edit BLS0294 


—PARAAARAAAAASAARLASALALALAASSLESSASASE ESSE EASE RRS SEES ES EERE RES ER RR ERE SEES E SE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS . itthe Hy A gt | UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bicenee AND WITH THE 
INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
sso ra 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


polo folololelolelolololololololololeololololo) 
CSOOCoooooooooooooooooooo 


pee fe fee loool ole olololololololelolololo) 
pole leleleoleleleleleloleololelololeolololelolo) 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 


‘ 
’ 
32 

7* * 
7* * 
7* * 
7* * 
7* * 
se a2 
3* * 
3* * 
7* RS e 
3* TRANSFERRED. * 
* * 
7* *® 
7* ® 
3* ® 
3* *® 
7* *® 
7* ® 
3* ® 
3* * 
3* * 
Py 


4 
5 
6 
7 
8 
9 
10 
y 
18 
14 
15 
16 
17 | 
18 
19 
20 
$] 
sit 33 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. | 
0000 36 LARRARASARAAARALARARAASASRALESERESESLESEE SEER RR RRS ERE RE ER SERRE EERE REAR R AREAS SS | 
2 
0000 28 
0000 «30 : +4 | 
9000 31 > facility: | 
0000 33 : alli PL1 runtime Library. | 
0009 34 abstract | 
444 38 : This module contains the pl1 runtime routine for opening a file. | 
$33 
4h at : author: c. spitz 18-jul-79 | 
9000 4@ ; modified: | 
9000 44: Bill Matthews 20-apr-1982 | 
00 45 ; V1.4-02: | 
44 48 ; Retry Sopen if $display comes back with $rms_sup or $rms_support 
0000 48 : 1-003 Bill Matthews 29-September-1982 | 
444 2 : Invoke macros $defdat and rtshare instead of $defopr and share. 
0000 3g ; 1-004 Debess Grabazs 31-Oct-1983 
4h ? : Use LNMSC_NAMLENGTH for maximum size of equivalence string. 
000 28 : 1-005 Debess Grabazs 6-Dec-1983 
44 28 : Include S$LNMDEF. 


sere 


) 
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209 38 : 1-006 Dave Blickstein 9-Feburary-1984 SPR 11-64002 +i 
00 60 ; Corrected the code that determines the setting of FAB$_SQ0. | KCl 
000 61; An offset literal was being used instead of a mask literal. | KCl 
3? 66 3 This was causing SQ0 errors when doing RFA access on file KC 
0 63 ; opened for READ. KCI 
000 64 ; KCl 
4 65 ; 1-007 Benn Schreiber 6-APR-1984 KC 
000 96 : Zero XABs as part of initializing them. KCl 
0000 6/ 3 KCl 
0000 68 KCI 
8308 $2 KCl 
000 0; KCl 
0000 71 ; Library macro calls: KCI 
00009 Slnndet LNM$_ symbol | KCI 
nmde ; LNM$_ symbols 
0000 7% 4 KCI 
0000 ms % LI 
0000 76 ; external definitions Lil 
0000 3 LI 
0000 78 LNI 
0000 79 $deffcb sdefine file control block offsets NAI 
0000 80 $defplirtcons :define pll run time constants NAI 
0000 81 $defdat idefine operand node data types NAI 
0000 Hf $defkcb sdefine key control block offsets | NAI 
0000 8 $defenv sdefine environment block offsets NAI 
0000 84 $rabdef define rab offsets PA( 
0000 85 $fabdef define fab offsets PL. 
0000 86 $devdef sdefine device characteristics PL. 
0000 87 $namdef sdefine nam offsets PL. 
0000 88 $xabdef sdefine common xab offsets PL. 
0009 89 $xabsumdef define puanery xab offsets | PL: 
0000 90 $xabkeydef idefine key xab offsets PL: 
0000 3 491 $xabprodef sdefine protection xab offsets PL’ 
0000 3 $xabdatdef sdefine date and time xab offsets PL. 
0000 9 $xabfhcdef sdefine file header char. xab offsets PL. 
0000 94 PL. 
0000 95 ; ae PL. 
0000 96 ; local definitions PL. 
9000 97 ; PL. 
ON0 98 
00005004 6000 99 fcbarg = 4 sdefine fcb offset from ap 
yv000008 0000 120 attrarg = 8 sdefine attr offset from ap 
0000000 494 19; Linesizearg = 12 define Linesize offset from ap 
0000001 1 ¢ woges izearg = 16 define pagesize offset from ap 
00000014 0000 105 titlearg = 20 sdefine title offset from ap 
00000018 4h Ht envirarg = 24 sdefine environment block offset from ap 
000 106; 
BOS + 3; locai data 
00 108 ; 
B68 109 
3 19 rtshare sharable 
| 
54 4E 49 52 50 53 59 2 ; 6 V6 sysprint: .ascii /SYSPRINT/ 
4e 49 23 9 8 113 sysin: .ascii . /SYSIN/ 
54 55 50 4E 49 24 95 00D 114 sysinput: .ascii /SYSSINPUT/ 
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rLagore . “ “ pati ety 7 04: $3; :44 (CPLIRTL.S Sac dP PLIOPEN.MAR:1 oo d,| 
54 55 50 54 55 GF 26 53 59 53 on78 1 Sysoutput: .ascii /SYSSOUTPUT/ 
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PLL SOPEN 7:35 VAX/VMS Macro V04-00 Page 
1-007 744 (CPLIRTL.SRCJPLIOPEN.MAR; 1 


:++ 


; pli$open -- open a file 
; functional description: 


; This routine opens a pli file, with the attributes and options specified 
$ by the call and in the file declaration. he FCB is updated to reflect 

£ e status e the file, and an RMS create or open is executed, followed 
; by a connect. 


; inputs: 
(ap) = number of arguments (2-6) 
4(ap) = address of the fcb for this file (required) 
8(ap) = wr time attributes of the file (required) 
12(ap) = Linesize (optional) 
16(ap) = Begeenae (optional) 
20(ap) = address of title - char var (optional) 
24(ap) = address of the open environment block (optional) 
fcb input field 


Ss: 
fcb_l_attr(atr_m_opened) = 1 if file opened already 
NOTE: if the title argument is present, but the option is not wanted 
the length word or the address specified must be 0. the declared title 
will be used if either is 0. 


outputs: 
successful open 
fcb is updated: 
fcb_l_next = address of the next open fcb 
fcb_l_previous = address of the last open fcb 
fcb_w_linesize = the Linesize argument, or the default for 
the device. (stream only) 
fcb_w_pagesize = the pagesize argument, or the default for 
the device. (stream on x 


SOOOSOOCOCOCOCOCOCOCOCOSOOSOSOSOSSBDOSOOCOOCOSOOSOSOSOOCSOSSOOCOOOOOO OOOO OOOOOOOOoOSoO 

SOOCCOCOCOC COC COOCOSOS OOO OS SOS OC SCO SOS OOOO OOOO OOO OO OOOO OOCOoOO 

WAL APOPIPOPIPOPIPIPONINPYININPININNININININYIANINININININPINININININYIPINIPONPONNNPononononopofnoponononnrn 
MOT A FS LOM ONVMPNOCOCCCOCOOCOCOOSOCOCSOOOCSCCOOCOOCOCOOCOOCOOCOOOooOOO: 

a a a dd hd 

SSNS DDD DAD ADA AD. TTT BB BB BBE EAN Innnnonopononen:— 

MEW 0 ODN NEW O OD NOAMN EWN 9 OD NAU EWN O ODNAU EWN O OONOAUE WN On” 

Bete Ge Ge Se Ge Ge Ge Ge Ge Be Se Fe Ge Se Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Se Ge Fe Ge Se Ge Ge Se Sete Se Se Ge Ses 


fcb_w_column = 1 if output (stream only 
fcb_w_line = 1 (stream only) 
fcb_w_page = 1 (stream only) ; 
fcb_l_attr = the attributes argument or‘ed with the declared 
attributes 
OFFC entry pli$open,“m<r2,r3,7°4,r5.r6.r7,r8,r9,r10,r11> 
01 6C~ O01 cmpl sag) #1 :if not enough parameters 
05 14 bgtr 10 i then 
50 e c{rl rd. eSignal not enough parameters 
05(¢B 1 00 brw fail zand fail 
56 04 AC DO 00 10$: mov lL fcbarg(ap) .r6 iget address of fcb 
03 28 A6~ Bi 0 cmpw fcb_w_revision(r6), - ;check revision of fcb 
0 #plT$c_version .. 
» 13 beql 208 if eql, cont. : 
50 00000000'8F 9 mov #pli$_badrtl,r0 zset bad version of file system 
7 1 brw fail sand fail : 
010C a6 01—Csé€E*1 04 208: — bbe #atr_v_opened, fcb_l_attr(r6),30$ ;if file already opened, 
04 4 ret sand just return 


- pli runtime open file 


16-SEP-1984 02:21:35 VAX/VMS Macro v04-00 
yaaa 9F:88i2e LOL TRIL. SREJPLIOPEN MAR: 1 
movl attrarg(ap).r8 get open attributes 
bisl feb_l_attr(ré6),r8 sand in declared attributes 


; add implied and default attributes as follows: 


vw 
oooo 
oom 
wo— 
~ 


COOoQoooooo SOOCSCOCOOOOOOOOOoOoOO 
oO 
wn 


SOCOCCOCOCOSCOSOOOOSOSOOOSOOOOOOOoOND 
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i—lal i-ielsiieal i-iel 
WOOT WO— Conwow 
Soooococoe 


o 
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S Cooooooo 


o=— frmmo- 
on o——or 


direct implies record and keyed 
neyee implies record 

print implies stream and output 
sequent tes implies record 
update implies record 


stream and output and pli identifier = ‘‘SYSPRINT’’ implies print 


stream is the default for stream or record 


input is the default for input or output or update 


sequential is the default if record is specified 


bbc #atr_v_direct,r8,40$ :if direct 
bist #<atr_m_record!atr_m_keyed>,r8 ;then imply record and keyed 
bitl #<atr_m_keyed! - keyed or 
atr_m_record! - srecord or 
atr_m_seql! - sequential or 
atr_m_update>,r8 update 
beql 50$ simplies 
bisl #atr_m_record,r8 irecor 
bitl #<atr_m_seql!atr_m_direct>,r8 ;if neither seql or direct 
bneq 50$ sspecified, then 
bisl #atr_m_segl,r8 sdefault to sequential 


bbc #atr_v_print,r8,60$ if print 

bisl #<atr_m_stream!atr_m_output>,r8 ;then im 
bitl #<atr_m_stream!atr_m_record>,r8 ;if neit 
bneq 70$ sspecified, then 


bisl #atr_m_stream r8 :default to stream 

bitl #<atr_m_input: - :if neither input or 
atr_m_output! - output or 
atr_m_update>,r8 supdate 

bneq 80$ sspecified then 

bisl #atr_m_input,r8 sdefault to input 

bbc #atr_v_output,r8,90$ :if output and 

bbc #atr_v_stream,r8,90$ ;stream specified : mae 

cmpc5 gechrege sat of x20 fcb_w_ident_len(r6),- ;and identifier 
fcb_b_ident_nam(ré) 7 SYSPRINT 

bneq 90$ sthen ; 

bisl #atr_m_print,r8 zimoly print 


check ccnsistency of attributes 


the attributes are inconsistent if: 


OR Be Oe Oe Be Oe Be we 


WwEwse 
WI 
00.00 0000 
mmnmnm 
o-oo 

oS 

o 

cas oe 


-—-o-—-9 
WAAR SPOPINININININININD 9 9 9 9 MF QDOOSODOOOO OOOO OO0 0000000000 000000000000 SI 


NRO ODN UNE WIN OOO NA UE WIN (OOD NAW WN HO OONAUES WN SO OONAUS WAR) O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
2 
; 
: 


both record and stream are specified, or 


ly stream and output 
er stream or record 


more than one of input, output, or update is specified, or 


both direct and sequential are specifie 


bbc #atr_v_record,r8,100$  ;if record and 
bbs #atr_v_stream,r8, 
ppe #atr_v_direct,r8,11 


zif errect and 
bs #atr_v seql,r8,120$ ssequential 


1 tH sstream both set, fail 
both set, fail 


assume atr_V_Tnput eq <atr_v_output+1> ;make sure these bits are 
assume atr_v_input eq <atr_v_update+2> ;where we think they are 
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tbo? “ orSEpa19R6 97:88:42 EPCIRTE.SREIPLIOPEN MAR:1 29° 9) 
55 58 03 04 €EF OOCF 31108: extzv gotry _updat r get in output and update bits 
gps 4 case alts. ra ed, 68°1508"3 130$ § 77505 FYG5>°: it inco netatent attributes 
50 00000000'8F 0 ES 5 120$: movl #p sbre5 .<166 Os, sthen set status 
0508 1 4} § brw f sand fai 
+35 8 ; set up stream parameters in fcb 
OEC 40 ; the Line size and page size apy tone are validated and stored in the fcb. 
OEC 41 ; the column position is set to 1. the nage number and Line number are both 
OOEC g 3; set to 1. 
OOEC 43 ; 
BREE 44 assume <fcb_w_linesize+2> eq fcb_w_pagesize 
OEC 45 assume <fcb_w_linesize+4> i feb. vs Be umn 
OOEC 46 assume <fcb_w_column+2> eq fcb 
OOEC 47 assume <fcb_w_column+4> eq fcb_ 2 “pase 
2A AG BS pee 48 130$: clrw fcb_w_Tinesize(ré6) r linesize 
02 6C 01 OOEF 49 cmpl tap) We iLinesize assed? 
28 15 OOF2 50 bleq 170$ eq. t en no 
50 OC AC 9 OOF 4 51 mov | Linesizearg(ap),r0 iget L nesize arg 
22 13 «+O0F8 26 beql 170$ : f eql, ronere t 
OA 14 OOFA bgtr 150$ 337 otr. ¢ 
50 00000000°8F 00 gore 54 140$: movl #pli$_linesize,r0 jset laselta’ Linesize 
O4F1 31 010 55 brw fail zand fail 
58 00001040 BF D3 0106 256 150$: bitl sate _m_record!atr_m _input>, r8 ;record or input? 
ED 12 010D 257 bneq 1408 ~ iif as Pe yes, fai 
OOOO7FFF 8F 50 D1 O10F 58 cmpl r0,#32767 stoo b ; 
4 14 0116 259 botr 1408 ry tif gtr: then yes, fail 
2A A6 0 B60 0118 60 movw r0,fcb_w_linesize(r6) iset Linesize in fcb 
03 6C ob1 O11C 61 170$: cmpl f9p) -f spagesize assed? 
2c 4 «615)=«(O1TF 506 bleq 2208 :if leq, then no 
50 10 AC 00 0121 26 mov l gages teeargtap) .r0 ith pagesize arg 
26 13 «0125 264 beql f eql, ignore it 
OA 14 Q127 265 bgtr 1 if gtr, cont 
50  00000000'8F 00 0129 $96 180$: movl #pli$_pagesize,r0 iset invalid pagesize 
0404 31 OQ1 ° 26 brw fail sand fail 
58 00001040 8F D3 013 $08 190$: bitl #<atr_m_record!atr_m ~input>, r8 ;record or input? 
ED 12 O13A 69 bneq 180$ ~ if neq, yes, fail 
E9 58 O07 €1 013C 70 bbc #atr_v print. -r8,180$ tif not print, fail 
OOOO7FFF 8F 50 O01 o138 71 cmp r0,#327 ;too bi 
EO 14 0147 re bgtr 86$ :if gtr. yes, fail 
2C A6 «650 ) «6—BO (0149 7 $308: movw r0, fcb_w_pagesize(r6) iset pagesize 
20 58 O07 €1 014D 74 220$: bbc wate v_print,r8,230$ 4 not ec int con 
50 01 #60 0151 75 movw #1 et initial fue page and prn 
0 A6 28 BY O18 6 movw r0. feb w_line(r6) tinit Line number 
; 2 Ab B 158 7? movw r0. fcb-w-page(ré) init page number 
34 A6 =6550—Sss«é#s«é#QdSC 78 mov l r0,fcb_l_prn(ré) zinit p 
2c AB BS 0160 79 tstw feb w ees pages ize specified? 
oC 12 gi 80 bneq 2308 ~ sit neq, yes 
00000000'GF 00 A 165 81 call #0690 Lib$lp get system default pagesize 
2C A6 «6550)——( 06—=COA 196 Ht subw #6,7r0,fcb_ - cpagesiize(r6), Peet Gefoult pagesize (-3 top, -3 bot) 
2E A6 «6B4 (0171 «= 283 2308: clrw = fcb_w_colGma(r init column 
14 A6 D4 0174 4 clrl fcb_l buf (ré6) sinit buf addr 
1C A6 «D4 0177 5 clrl fcb_l“buf_pt(r6) tinit buf pointer 
18 A6 D4 A be clrl fcb_l"buf-end(r6) tinit buf end 
17D 8 ; Link the fab to the rab, the nam to the fab 
17D 89 ; 
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SA 62 A6 YE 17D 90 240$: movab  fcb_b_rab(r6),r10 t address of rab 
57 QOA6 C6 YE 0181 91 movab fcb_b_fab(r6),r7 vet address of fab 
5B. OOF 6 £8 43 186 35 movab tebbe nam(r6),r11 iget address of nam 
Hs AA D 188 % mov | r7,rab$l fab(r19) :plug eddress of fab into rab 
8 AZ SB 00 O018F 94 movl ri4,fab$l_nam(r7) zplug address of nam into fab 
1F A? O¢ 90 133 95 movb #tabsc var. fabsb_rfmr7); a record format default 
1E A 94 019 96 clrb fab$b_rat(r7) t default record attributes 
2C AA 34 AB OSE Boe 4 movab = fcb_l_prn(r6),rab$l “rhb (E19) ;set address of prn in rab 
019F 99 ; validate title and ident. if title specified, use it as file name. 
Bier 9 ; otherwise, use ident as file name. 
59 40 A6-~ BO 98 09 movw fcb_ w_ident_len(r6),r9 get length of ident 
OA 14 Q1A3 30 bgtr 2608 ~ i if 0 
50 Q00000000°8F pO O1A5 04 250$: movil #pli$_fileident,r0 sthen. set invalid file identifier 
0448 31 QIAC 05 brw fail sand fai 
59 Bil O1AF 06 260$: cmpw r9,#31 44 wtength >31 
Fl 14 01B2 307 bgtr 250 fail 
2C A? 42 AB YE 01B4 08 movab fcb_b_ident_nam(ré6), tabsi. reace?) sdefault file name to ident 
34 A? 59 90 0189 309 movb r9, FabSb_fns(r7) stopy Length to fab 
5E OOOO00FF 8F C2 01BD 319 subl #lnm$c _namLlength,sp sget room for translate temp 
5E DD 01C4 11 pushl ? set addr of dest 
OQOOOOOOFF 8F DD 01C6 31§ pushl #lnm$c_namlength :set len of dest 
42 A6 OF OI1CC 31 pushab fcb_b_Tdent_nam(r6) sset addr of src 
7E 40 A6 3C OCF 314 movzwl tcb- wident_len(r6),-(sp) ;set Len of src 
50 SE 00 0103 315 mov | to scopy s 
01D6 316 Strnlog.s. (70) ,8(r0) translete the ident 
B8 50 €9 O1EA 317 blbc ~r0,250$ :if lbc, fail 
5E 00000050 8F CO OIED 318 addl #80,sp iclean stack 
00000000'8F 50 Di OFS 319 cmpl r0 #ss$_notran :did translation succeed? 
2E 12 OB 320 bneq sif 7 yes. use it 
40 A6 20 FE06 aie + 2D B68 321 cmpc5 = #5, sys in, #*x20, fcb_w_ident_len(r6), - ;identifier = sysin? 
0207 $56 fcb_b_ident_nam(r6) ; 
0c 12 0207 32 bneq 2708 ~ ifn then no 
2C A7_ FEOO CF 9E 0209 324 movab ; sinput, foeet fna(r7) coet nattenene to sys$input 
34 A? + 90 Ti 32 sovb fab$b_fns(r7) eet {ilenane size to 9 
r 
40 A6 20 FDE6 Fs + 2D og13 327 270$: cmpcS #8,sysprint,#*x20, toh. Maen, bentral, -;identifier = sysprint? 
O21F 328 fcb_b_ident_nam(r6) 3 
OA 12 O21F 33 bneq 2808 ~ neg then no 
2C A7_ FDFI CF QE 0221 0 movab syacut ut, fab$l_fna(r7) ae filename to sys$output 
34 A? (0A 90 7 $3) movb #10 tabso- fns(r7) sset filename size to 10 
8. 8 > 2 § 280$: cmpl (ap) 8 1 title specified 
24 «19 O022E 3 blss 320$ 
52 14 AC 09 8 0 4 mov | titlearg(ap).r2 get a "edéress of title 
, 34 35 beql 320$ f eql, then ignore it 
59 =82 4 8 6 6 movw (r2)+,r9 get size of title 
. 1 9 ? bgeq 300$ sif size <0 A 
50 00000000' 8F ° 0 8 290$: movil #pli$_title,r0 sthen set invalid title 
0382 1 024 39 brw fail sand fail 
0080 8F 59 861 4 40 300$: cmpw r9,#128 sif size > 128 
14 4A 41 bgtr 296$ :then set invalid title and fail 
34 A? 9 90 4C ry movb r9, fab$b_fns(r7) :set size in fa 
2C A7 2 00 2? re mov | r2,fab$l_fna(r7) set address in fab 
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PLISOPEN - pli runtime open file 16-SEP-1984 02:21:35 VAX/VMS Macro v04-00 Pa 8 
Sb0? : raat 7 9 :8bi20 PLIRTL.SRCJPLIOPEN.MAR; 1 “fe (1) 


; put address of extended string area and resultant string area 


54 45 ; 
e¢ <8 ; into name block. assume no xabs needed 
OC AB pist C6 =—9E 54 48 $20$: movab  fcb_b_esa(r6),nam$l_esa(r11) ;plug address of esa in nam 
04 AB O12E C6 YE 025A 49 movab fcb_b_esa(r6),nam$l_rsa(ri1) ;plug address of rsa in nam 
OB AB (94 0 60 50 clrb nam$bresl(r115 ;set no esl, yet 
03 AS 94 6 51 clrb nam$b_rsl(ri1) set norsl, yet 
24 A? OG 8 °8 26 clrt fab$l_xab(r7) set no xabs 
8 $2 2 ; fill in file access field of fab 
06 58 ¢ 4 8 69 2$ bbc #atr_v_input,r8,330$ if input 
16 A? 0 0 6D 5 movb #fabSmiget, fab$b_ fac (r7) set get access in fac 
bE 11 0271 58 brb 350$ selse 
06 58 0 E1 Oct 59 330$: bbc #atr_v_output,r8,340$ ;if output 
03 90 027 60 movb #<fab$m_get! fab$m_put>,- ;set get and put access 
16 A? ef 361 fab$b_fac(r7) sin fac 
04 11 0278 6¢ brb 350$ selse its update 
16 A? «~(OF = 90 OSae 63 340$: movb oc i entn.ot: - set get 
0281 64 fab$m_put! - jput, 
0281 $02 fab$m_del! - delete, and 
Ose, 308 fab$m_upd>, fab$b_fac(r7) ;update in fac 
t+ $08 3; process environment options 
5E 22 C2 0281 $59 $50$:  subl #env_k_len,sp get room for env block 
59 5SE dO 0284 71 movl Bnet save addr of env block 
6€ 22 00 6€ 00 e2C 0287 36 movcS #0,(sp),#0,#env_k_len,(sp) ;zero it 
5E DD O028D 37 pushl ‘p ;set addr of macro open block 
00 OD 028F $e pushl # gassume no open environment 
06 6C D1 0291 75 cmpl 8) 8 sopen environment? 
04 19 0294 376 blss 360$ sif Iss, no , 
6— 18 AC DO 0296 377 mov envirarg(ap), (sp) sset addr of open environment 
56 DD O29A 378 360$: pushl r6 sset addr of fc 
08 AE OF O029C 379 pushab 8(sp) ;set addr of addr 
08 AE OF O29F 380 pushab 8(sp) ;set addr of addr 
08 AE OF Bsag 381 pushab 8(sp) sset addr of addr ; 
OC A6 58 D0O O2A 206 mov r8,fcb_l attr(ré) sset current file attributes 
00000000'GF 06 FB O2A9 8 calls #6,g*pliS$$envir sprocess environment | 
58 OC A6 DO 0280 84 mov | feb_l_attr(r6),r8 sget current file attributes 
01 50 €8 02B4 85 blbs r0,370$ iif lbs, cont 
04 0287 386 ret yerror already signaled, just return 
5B 4669 «600 0288 8 387 370$: = movi env _l_status(r9),r11 iget env status 
pgBB $68 beql 570$ sif eql, nothing to do, cont 
5B 03 «OD BD 9 bitl #<env_m_create_dat!env_m_expire_dat>,rl! ;do we need a date xab? 
} mm bY psc8 90 beql 380$ ;if eql, no, cont 
5E sc C2 0 Cs 91 subl #xab$Sk dot len. ap iget room for date xab 
6— 2C 00 6€ 0 §¢ 8 C 3 movcS #0,(sp),#0,#xab$k_datlen,(sp) ;zero the xab 
6—E 12 0 cB 9 movb #xab$c_dat,xab$b_cod(sp) ;set xab type 
01 AE 2C 90 O2C 94 movb #xab$k~datlen,xab$b_bin(sp) ;set xab Length 
14 AE A9 7D 02D 95 movg env_q_credate(r9) ,xab$q_cdt(sp) ;set creation date 
1c AE OC AD 7D OQ2D 96 mova env Gexpda e(r9),xab$q_edt(sp) ;set expiration date 
AE 4 a7 00 8 dC 97 mov l fab$l~xab(r7),xab$l_nxttsp) ;set pointer to next xab 
24 a7 OSE 4 E1 98 mov | sp, fab$l_xab(r7) set addr of xab in fab 
0 oO 8 E5 99 380$: bitl #<env_m_protect!env_m_uic>,rll ;do we need a protection xab? 
F 13 O28 400 beql 5708 rif eql; no, cont 
SE 00000058 8F C2 O2EA 401 subl #xab$k_prolen,sp get room for protection xab 


-v 
or 
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1-007 ae 94:83 :¢0 PLIRTL.SRCJPLIOPEN.MAR; 1 (1) 
6— 0058 8F 00 6E€ O gf Fi rh movcS #0,(sp),#0,#xab$k_prolen,(sp) ;zero it 
6— 1 0 F9 = 40 movb #xab$c_prc,xab$b godt ep? set xab type 
01 AE 58 8F 90 FC 404 movb #xab$k_prolen,xab$b_bln(sp) ;set xab Length 
OE AE 3 A9 =s- BO 8 01 405 movw env_w_Owngroup(r9),xab$w_grp(sp) ;set owners group 
OC AE 20 A9 B80 06 ht movw env_w_ownmem(r9),xabSw_mbm(sp) ;set owners member 
O08 AE 1C AY BO 930B 40 movw env_w_prot(r9),xab$w_pro(sp) ;set protection 
04 AE 24 A7 D8 8 19 408 mov fab$l"xab(r7),xab$l_Axt(sp) ;set pointer to next xab 
24 A7 ~SE OD 8 13 ra) mov sp, fab$l_xab(r7) zset addr of xab in fab 
0319 411 ; if its a keyed file allocate a summary xab on the stack, fill it in and 
b818 216 ; plug its address into the fab. 
04 A? (0000040 BF C8 0319 414 5708: bist #fabSm_sqo,fab$l_fop(r7) ;set sqo 
58 00008310 8F 03 0 $} 415 bitl #<atr_m_update!atr_m_direct! - ;update or direct or 
0328 416 atr_m_keyed!atr_m_recidacc>,r8 ;keyed or record id access set? 
08 13 0328 417 beql 5$ :if eql, no, sqo is ok 
04 A7 00000040 BF CA Q32A 418 bicl #fab$m_sqo, fab$l feetera :clr sqo 
19 58 08 €1 0332 419 575$: bbc #atr_v_keyed,r8,580 :if not keyed, cont 
5E OC C2 0336 259 subl #xabSk sun len. sp gallocate space for summary xab 
6€ OC 00 6€ 00 2C 0339 421 movcS #0,(sp),#0,#xab$k_sumlen,(sp) ;zero it 
6€ 16 90 O33F $56 movb #xab$c_sum,xab$b_cod(sp) ;set xab type 
01 AE OC 90 Q342 42 movb #xab$c_sumlen,xab$b_bln(sp) set block length 
04 AE 24 A7 DO 0346 424 movl fab$l_xab(r7),xab$l_nxt(sp) ;set pointer to next xab 
24 A7 «SE DO beee ri mov L sp, fab$l_xab(r7) slink summary xab to fab 
Oaer rH ; open the file if it is input or update, create it if it is output 
43 58 05 £0 O34F ry §80$: bbs #atr_v_output,r8,610$  ;if input or update 
5E 2C C2 0353 430 585$:  subl #xabSk_ fhe en. sp get room for fhc xab 
6€ 2C 00 6€ 00 2C 0356 431 movceS #0,(sp),#0,#xab$Sk_fhclen,(sp) ;zero it 
6— 10 90 QO35C 432 movb #xab$c_fhc,xab$b_cod(sp) ;set xab type 
01 AE 2C 90 O35F 433 movb #xab$k-fhclen,xab$b_bln(sp) ;set block Length 
04 AE 24 A7 DO 0363 434 mov fab$l gpetel: -ggnenamnttons ;set next xab pointer 
24 A?) «=65E) =O ss 0368 Ss 435 mov | sp. fab$l_xab(r slink fhe xab to fa 
036C 436 $open zthen open the file 
1450 €9 0375 437 blbc r0,590$ sif lbc, error on open 
51 OA AE B60 0378 438 movw xab$w_lrl(sp),r iget Lengeh of longest record 
2C AE 9E O37C 439 movab xab$k_fhclen(sp).sp sclean stack : 
18 A6 «651 =B1 0380) 8=—440 cmpw rl, fcb_l_buf_end(ré6) sirl larger than user requested size? 
1¢ 8619 0384 441 blss :if lss, no, cont 
18 A6 «651 8 «83C «(0386 rai} movzwl ri,fcb_l_buf_end(ré) suse irl for buffer size 
16 11 O38A 44 brb 6208 scont 
50 00000000'8F 00 oaes 444 590$: movil #pli$_rmsf,r0 sthen set rms fab error code 
0261 +31 O38 445 600$: brw ail sand fail ¢ 
0396 446 610$: S$create r :if output, create the file 
EA 50 9 tH rtf Lbc r0,590$ :if error on create, fail 
$8 +33 ; make sure file has desired attributes 
03 58 08 £0 O3A 451 6208: bbs #atr_v_keyed,r8,640$  ;if not keyed 
14F 1 03A6 126 630$: brw 7 ‘ zcont 
1D A? 20) «691 «=Q3A9 = 455 6408 cmpb #fabSc_idx,fab$b_org(r7) ;is it indexed org? 
F7 = ‘12 Bene 454 bneq 630$ s1f neq, no, cont 
5B O09 AE QA AF 455 movzbl xab$b_nok(sp),r11 get number of keys 
58 00010000 8F C8 B3 456 bisl #atr_m_indexed,r8 zset indexed file | 
E 9 0? BA 457 mov l r a4 4 clean stack, leaving env block 
55 5B 0000004C 8F C5 O3BD 458 mull3 #xabSc_keylen,r11,r5 get size of key xabs required 
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1 7 -$ Pas 986 94 Sbiae PLIRTL.SRCJPLIOPEN.MAR; 1 (1). 
SE 55 2 CS) 459 subl r5,$ allocate room on the stack 
6— 55 00 of 0 sé C8 460 movc5 #0; (3p) #0,r5,(sp) szero it 
24 A E 8 C 461 mov l sp.f $(_xab(r7) sset addr of xabs in fab 
55 3 ) D ret movl so.r scopy addr of first xab 
5 D4 D 46 clrl r sset index to 0 
OB 11 D7 464 brb 670$ fae in loop 
55 0000004C 8F CO D9 465 660$: addl #xab$c_keylen, ng to nant key xab 
B8 AS 55 3 EO 466 mov L r5,<xab$l_ not HO skeylenscr ) gboine last key xab to this one 
65 15 90 Q3E&4 467 670$: movb #xab$c_key,xab$b_cod(r5) ;set xab type 
01 AS 4C BF 90 QO3E7 468 movb ee C “keylen,xab$b_ blin(r5) sset sab Length 
17 a5 50 90 Baee 469 movb 9, xabSb F ef(r5) yset a number 
E5 50 38 F2 O3F 470 aoblss ie 508 ; loo | 
04 A5 D4 O3F4 471 clrl rapt Onet crs) iterminate xab List 
O3F7 tr6 $display r? et the key information 
34 50 + €8 ots 47 blbs r0,675$ 3 f lbs, cont 
00000000°8F 50 D1 040 474 cmpl r0.#rms$ _sup ifailure = not Supeerter over net? 
13. 13 Q460A 475 beql 673$ tif eql, yes, cont 
00000000'8F 50 O01 ret 476 cmpl 0 #rms$_support : failure = not susperted over net? 
OA 13 041 477 beql 6735$ sif eql, yes, cont 
50 00000000°8F 00 0415 478 672$: movil #pli$_rmsf,r0 tset rms fab error 
01D8 31 QO41C 479 rw fy il zand fail 
QO41F 480 673$: $close sclose the file 
FEA 50 E9 0428 481 blbc 0. 672$ if lbc, fail 
0428 rt} $Sopen reopen file 
DE 50 E9 0434 48 bloc +4 472$ bc, fail 
7E SB 2C C5 0437 484 675$: mull3 #keb_ c_len,ri11,-(sp) iget size of key control blocks 
5E DD 0438 485 pushl iPs0 :set addr of temp 
04 AE OF Q43D 486 pushab :set addr of size 
OO0O00000'GF O02 FB 0440 487 calls ie. 2.g°ti . Libsget. vm eget s space Lb the kcbs 
OA 50 E8 0447 488 blbs bs, con 
50 00000000'8F DO 044A 489 mov L fol 8 ae, r0 rset no "virtual memory 
O1A3 31 0451 490 brw fai zand fail 
55 BEDO 0454 491 680$: popl 7. iget addr of kcbs | 
38 A6 38655 «6200 0457 436 mov 5 feb_t_kcb(ré6) :set addr of kcbs in fcb 
3C A6 =655BCO90-s«045B O49 movb rii,fcb .* aon ar? aids zset number of kcbs in fcb 
50. 13 AE 90 O45F 94 6908: movb rabgb. ~atptsp) iget data type of this key | 
0463 495 assume xab$c_st fe 3 
0463 496 assume xab$c =ing eq eq 1 3 
0463 497 assume xab$c_bn2 eq $ : 
0463 498 assume xab$c_in4 eq § | 
Bees 499 assume xab$c_bn4 eq 4 : 
046 500 assume xab$c_pac eq 5 ; 
0463 501 case 4 Be 70,< = scase on rms data type 
ret 286 $,° istring 
46 7208, - zint 
046 504 7208, - ibin e 
046 505 7408, - zint 4 
046 506 740%, - ibin 4 
bess a4 750$> spac | : 
50  00000000'8F 9 Bee 08 mov l #pli$_inv_key,r0 zset invalid key type 
017A 1 047A 509 brw fail zand fail 
D4 0470 219 700$: clrt r0 sclear total Length 
vO 047F 11 mov | #dat_k_char,kcb_l_ dtyp(r5) ;set char data type 
9E rt ¥3 1g movab kcb_w_pos0(r5),71~ sget addr of posO in kcb 
9E 0486 1 movab xab$w_pos0(sp),r2 get addr of posO in xab 
9 rt 14 movab xab$b_siz0(sp),r4 sget addr of siz0 in xa 
D 48E 15 mov #8,r7° ;set max number of segments 
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runtime open file 16-SEP-1984 02:21:35 VAX/VMS Macro Vv04-00 age 
ae OF: $bi22 PLIRTL.SRCJPLIOPEN.MAR; 1 . 
491 16 710$: movw (r2)+,(r1)+ zset position in kcb 
494 1 movzbl (r4)+,r10 get size of segment 
497 18 addl r10,r6 ;add size into total size 
469A 51 movw ri10,(ri)+ set size in kcb 
49D 2 0 sobgtr r7,710$ 3g0 again 
Bea 1 mov reghes + org tra? set precision in kcb 
4AG 2 ¢ clrl keb_l_zero(r5) ;set no more segments 
04A7 brb uegs zcont 
QO4A9 = 55.24 oe0s mov l #15,kcb_l_prec(r5) sset prec of 15 
Q4AD 525 750$ mov l Wdat_k_Fix bin-keb_t_dtypir3) sset fixb data type 
048 526 movw xab$w_posOTsp),kcb_w_pos0(r5) ;set position of key in kcb 
pee 2 7? movzbw ggp$b_120(sp) .keb_w_ enO(r5) ;set byte size of key in kcb 
4BA 8 brb 755$ 7con 
O4BC 529 740$: = movil #31,kcb_l_prec(r5) sset prec of 31 
04C0 530 brb 30 scont in common 
Bete 531 750$: movil #dat_k fix_dec,kcb_l_dtyp(r5) ;set fixd data type in kcb 
04C 235 mulb3 #2,xab$b_s7z0(sp) ,r0 get prec of key 
O4CA 53 decb r0 : 
O4CC 534 movzbl r0,kcb_l_prec(r5) ;set prec in kcb 
04D0 535 movw xab$w_pos 598) oRED.U Bes (r5) ;set position of key in kcb 
0405 536 movzbw popes 327589) -neee,, enO(r5) ;set byte size of key in kcb 
O4DA 537 755$: clrl kcb_w_posi(r5) zset no more segments 
0400 538 760$: addl #xab$c_keylen,sp sremove this xa 
04E4 539 addl #kcb_c_len,r5 spoint to next kcb 
04E7 540 sobgtr ril, 790 + 
O4EA 541 movab fcb_b_fab(r6),r7 reset addr of fab 
O4EF ef movab fcb_b_rab(r6),r10 sreset addr of rab 
O4F3 «54 brb 7908 scont 
beee re: 770$ brw 690$ zsreally go again 
O4F8 546 780$: bbc #atr_v_indexed,r8,782$_ ;if indexed required 
Oar 547 cmpb =. #fabSc_idx, fab$b_org(r7) ;is it indexed org? 
500 548 beql 790$ :if eql. yes, cont 
0502 549 mov #pli$_notindexed,r0 zset not indexed file 
0509 550 brw fail sand fai 
050C 551 782$: bbc #atr Shaved 1a roe :if not keyed, cont 
0510 226 cmpb #fab$c_rel,fab$b_org(r7) ;if keyed and file is relative 
0514 55 beql 790$ sthen cont ‘ 
0516 554 bbc #dev$v_rnd,fab$l_dev(r7),785$ ;if device not random access, fail 
0518 555 bbs #dev$v_sqd,fab$l_dev(r7),785$ ;if device seql block mode, fail 
b25¢ 556 cmpb #fab$c_fix.fab$b-rfm(r7) ;if fixed length records 
0524 8557 beql 790$ ; sthen continue 
0526 558 bbs #atr_ v_recidacc,r8,790$ ;if record id access, cont 
B3 A 559 bbs #fab$v_bio, fab$b_fac(r7),790$ ;if block io, cont 
SeF 560 785$ $close fr? ~ sclose the file Meets: 
0538 561 mov #pli$_invforgkey,r0 sset invalid file organization 
O53F 286 brw fail sand fail 
054 563 ; ' 
b3¢ 288 3 connect to the file 
0540 566 7908: clrl _ fab$l_xab(r7) sclear xab pointer 
054 567 Sconnect r sconnect to the file 
Q54E 568 lbs r0,800$ :if error on connect 
0551 23? $close r/7 | sthen close the file 
be24 570 mov l #pli$_rmsr,r0 zset rms rab error code 
561 571 rw fail sand fail 
0564 572; 
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3; process fixed 


B00$: movi 
b 
810$: 


eql 
movzbl 


820$: 


821$: 


603 : Link the file 


605 822$: jsb 
mov l 
movab 
bbs 
movab 
bisl 


bicl3 


830$: 


clrq 
mov l 
ret 


PAPAS AAAAO OOO 
Ot st ot ot ot I OO 
CONAUIEWN—-OOaon 


AX/VM > oe 


Page 
PLIRTL.S ° 


16-SEP-19 1:35 
raat 4 $3: 744 
_control_size_to and file_id_to 
ooXs L_fileidto(r9),r0 sget A ad ne file_id_to 


wees <fcb_b_nam+nam$ _dvid(r6), Troy” “set dvi and fid 
Lfxetlto(r9) r iget addr ot fixed_control_size_to 


82 
fab$b_fsz(r7),(r0) 


cro V04-00 
RCIP LIOPEN.MAR; 1 


: e 
tset TR pe control_size_to 


> set pagesize for terms and Linesize/buffer size for all 


feeyy, trm,fab$l_dev(r7),8205$ ;if its a terminal, then 


£3834" ipages ize assed? 
leq, then no 
SF ara rd iget pagesize arg 
neq, then it was passed. 
for terms 


fcb_w_pagesize(ré) tdefault agesize to 
[abSu_ars “4 (r7) imes s echt ed? 


fab$w_mrs(r7), feb, L_buf gh. .s 
#atr_V_stream,r8,822$ 

fcb_w_ Re Pres he itinesize specified? 
yes, co 


if n nt 
#dev$v_rec,fab$l_dev(r7), ‘3218: re its a record device, 
fab$w Bis(r7), fcB_w_ Linesize(ré) set actual Linesize 


fcb_l_buf_end(r6), fcb_w_ [Tees tected? default to buffer size 
#atr_V_print,r8, 822$ ~ “sif not print. file, cont 
#132, fCb_w_ Linesize(r6) zset default of 13 38 

to the opened file List, and set its status to opened 


9. “pliSlink fcb 


no, aa current buf size 
suse mrs as buf size 
;if not stream, cont 


slink fcb onto exit control List 
“x9f160008, fcb_l_condit(r6) ;set up cnd hnd for i/o routines 
“pli$$stream._ hnd, fcb_l =cnded dr(r6) ;set stream handler address 
atriv stream r8,830$ “;if stream cont 
“pli$Skey_ hnd, feb l_endaddr(r6) set key handler address 
<atr_m_currec!atr_m yer :set file opened, cur rec wrong 
atr_m_virgin>,r : and in just opened stat 
#<atr_m “delete! atr _m_recur! = ;clear delete, recursion flag, 
‘atr_m_eof! = ;comma_expected and eof 
»fcb_ l “attr (r6s scopy atr to fcb 
clear saved rfa 
sindicate success 
return 


atr_m ~conma, ex 
atr—m- “writes r 
tebe D9 rfa(réd 
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Pa} 98 4: $3; 344 PLIRTL RCIP LIOPEN.MAR;1 ° (1) | 
SF7 620 
12 \s SF7 3s « 621s fail: bneq 10$ ;if not enough parms 
50 ee Th D 5F9 6 § mov ~ Li$_parm,r0 ithen set no enough parameters | 
:. $f 6 clrl sassume no fcb specified 
01 $f Di 06 624 cmol (3p). #1 au fcb specified 
1 19 060 625 blss 0 hen 
56 04 AC DO 0607 6 § mov 6.1 “ eet 76 coat feb 
08 A6 «6550)0=—(D0«(060B) Ss 6 27 -:108: mov error(r6) _ error code in fcb 
51 56 bo 60F 628 movl rf fcb address in ri 
0101 €¢1 95 0612 629 tstb cFeb. b_nam+nam$b_ est>(rtse venation in esl? 
07 is 0616 630 bneq 20$ ~ neq, yes, cont 
OOF9 C1 9 Role 631 movb <fcb_b_nam+nam$b_ rsizirt), - ;copy rsl to esl 
0101 C1 6iC 6 ¢ <feb. b-nam+nam$b_esl>(r1) ; 
51 DD O61F 633 208: pushl ri set fcb addr 
50 DD et 634 pushl fr0 sset error code 
00000000'8F DD 0623 635 pushl ag ig undfile sset undefinedfile condition 
00000000'GF 03 FB poe? 636 calls ,g*pli$io_error 381 nal the condition 
0630 637 ret sreturn 
0631 638 
0631 639 | 
| 


an 


a 
— 
- 
es 

c 

@ 

a 

°o 

a 

e€ 
- 
a 

c 

po 

ce 
- 
a 

a 

i 


a 
— 
2 
© 
ze 
w 
a.— 
a2 
—-€e 
> 
aw 


~N 
oO 


= 2 
4 nn ww we 
zw aoe > —_+ NN NO 
'@ =z Zzeoaor oO Z2i-- 
a <« ee YY w wao- a - ze 4 MM 
— & 22 x» aa '<x<oco .F> PS 2wwwwe Aw 
NOrFr-< «Ue > eo EO or - OlOOMM >< OwwkSOZeR—uuvwOdZ-A2oxwsest wwzZo0or2z>w 
Vacdtu-OwdtwZO<atww 5.080 2Yx< at OOdt SD eowre D5 5D ZO Gewese eu OO se ewe 
weOGeunr&e >POuwuw ZKOUA YM OOF WWW ZS IY OOOVCV OW MZO00 OV HY 8A es Oo 
eeoeevueveevpeeerpeeeeeeee oO eepueeceoeeepeeneerereeereeee eee atl atlas 
MOMDMOVCCV JIIJIIVESESLES > S33 CMMDMMOMOMOOMOOEY 4444s 9333333344 
AAAHAAAAAAGAAAAAAAAAPAAIZT ttiitt_t_t_tr_seeresereerereeseeeeseeeseseeeteeee ee 


taq@e eee eetde ede ee ee ee ee ee EI VV BY YB VV BEV BEV OEE VY VEYVVYVYVYYYY 
A a Oe 


—h-FTOCO—-DOOMOCOCODOOOSOSOAOVOD— WH 
ONDOOOCOT OCOMDOOOCCSO-SOoO- Sooo 


UPDATE 


Vv 
ARG 


PLISOPEN 
Symbol table 


LIBSGET vm 
LIBSLP_CINES 
LINESIZEARG 
LNMS$C_NAMLENGTH 
NAM SL 


NAM$T DVI 
PAGESTZEARG 
PLISSENVIR 


Perrcrc Tc 
See 
ba 
-—oO 
mz 
2x 
ve 
Lm 
@ 


PPP PBS DD DD Bb PY 


ee BB 
errrrrT ee 


a 
we 
eee te te ee 
a 
= 


RMS$_SUP 
RMS$_ SUPPORT 


SYSSCREATE 


OWLOOWOOrom SS Oromn } co 


333 2 90nmnN > =00r 


polo lolol elelolelelolololololo) 
COOCOoCooooCooOoooooO 


eeaerkaene 
eeeeeene 


0000000C 


00000014 
00000010 


Reeekene 
eeeeeeee 
eeeerenre 


= 00000003 


Reeereee 
reeekkae 
00000020 
90000020 
reekeaeere 
ReeeKeek 
eeeerenre 
reearanre 
ReekekeRe 
eeeaeeee 
Reeereee 
reeneere 
grerereee 
rerkerere 
reeerenre 
eeeeraenre 
geekeene 


0000003C 
000000eC 


rrencreee 
rererane 


= 00000001 


gereraere 
geenrrene 
erenctene 
rerereee 


DDwDwD 
[3] 
=< 


<>< 

oo 

ror 
—OOO—]—Dovnywno—0- 0 fF “00 “Con 0-00" OO 
DMM VPMOLLOWOOOCOWMO UU DNLSNM VOwo-- Soe v9 


SOOoOOOCOOOOOOCOOCOOCOCOOSOOOCOOCOOOOOSoOoOoOO 


2 22+ 2? +. + + + + + + 2+. wee? 2: 
Ooooooocoooooooeeo oOo 
PROPIMPOPOPOPINPIPYNPIPYNPIPYNIMYPYNPYNY ss PoroOTU 


Mr 


oooo oO 


Moronor 


PLISOPEN - pli runtime open file 16-SE 
Psect synopsis 6-SE 
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' Psect synopsis ; 
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PSECT name Allocation PSECT No. Attributes 


» 6 « 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 

SABSS 000001 ( 450.) 84 ( 1.) NOPIC USR CON ABS LCL WOSHR’ EXE 

-PLISCODE 00000631 (¢ 1585.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE 
fame mee meee nen ee as ee meme} 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 10 60:00:00. 19 00:00:00.54 

Command processing 72 00:00:00.5 00:00:02.56 

Pass 287 hs A Bs SES BL 

Symbol table sort 0 00:00:01.4 00:00:03.03 

Pass 2 120 00:00:02.60 00:00:05.05 

Symbol table output 24 00:00:00.17 00:00:00.37 

Psect synopsis output 00:00:00.02 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 514 00:00:17.39 00:00:37.64 


The working set Limit was 1200 pages. , 
69209 bytes (136 pages) of virtual memory were used to buffer the intermediate code. 
There were 60 pages of symbol table space allocated to hold 1012 non-local and 80 local symbols. 
639 source Lines were read in Pass 1, producing 18 object records in Pass 2. 
pages of virtual memory were used to define 34 macros. 


$eoeseeceosoeoesceccececeoce 


.$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 7 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 ¢ 
TOTALS (all Libraries) 1 


1139 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
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